home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
- <stack>
- <name>in</name>
- <id>-1</id>
- <cardCount>1</cardCount>
- <cardID>2828</cardID>
- <listID>3903</listID>
- <cantModify><false /></cantModify>
- <cantDelete><false /></cantDelete>
- <cantAbort><false /></cantAbort>
- <cardSize>
- <width>448</width>
- <height>256</height>
- </cardSize>
- <script>--Gopher's Helper v0.1b2
- --fxa.
-
- ------------------------------------------------------------------
-
- on getCat selector ------------ΓêåΓêå
- global gName, gSelector, gLongName
- dCInfo selector, "gName", "gSelector", "gLongName"
- put gName into card field "PhyName"
- put gLongName into card field "LongName"
- --set the scroll of card field "DisplayStuff" to 0
- if the number of lines in card field "CtrlStack" = 1 then
- hide card btn "Up"
- end if
- end getCat
-
-
- function checkAlias fName --true if there was a true alias, not just a name
- global gCPathName, gCAliasName, gCHostName, gCPort, gCServerSel, gCItemType
- if last char of fName is ":" then delete last char of fName
- put fName into gCPathName
- put "ΓÇó" after fName
- if there is a file fName then --check alias
- open file fName
- read from file fName for 5255
- put line 1 of it into gCAliasName
- put line 2 of it into gCHostName
- put line 3 of it into gCPort
- put line 4 of it into gCServerSel
- put line 5 of it into gCItemType
- close file fName
- if gCHostName & gCPort & gCServerSel & gCItemType is empty then
- return false
- else
- return true
- end if
- else -- go ahead and open it
- put empty into gCAliasName
- put empty into gCHostName
- put empty into gCPort
- put empty into gCServerSel
- put empty into gCItemType
- return false
- end if
- end checkAlias
-
- function SampleTheFile fName ------------ΓêåΓêå
- if there is a file fName then
- open file fName
- read from file fName for 10000
- put it into fCon
- close file fName
- if length(fCon) < 10000 then
- return fCon
- else
- return fCon & return & "••••• Sample of file contents only •••••" &¬
- return & "ΓÇóΓÇóΓÇóΓÇóΓÇó Entire file is not displayed ΓÇóΓÇóΓÇóΓÇóΓÇó"
- end if
- else
- return "ΓÇóΓÇóΓÇóΓÇóΓÇó File not found ΓÇóΓÇóΓÇóΓÇóΓÇó"
- end if
- end SampleTheFile
-
-
- on UpdateAliasFile fName
- global gCAliasName, gCHostName, gCPort, gCServerSel, gCItemType
- if last char of fName is ":" then delete last char of fName
- put "ΓÇó" after fName
- if not (there is a file fName) then
- dCInfo fName
- end if
- open file fName
- write (line 1 of gCAliasName) & return & gCHostName &¬
- return & gCPort & return & gCServerSel & return & gCItemType &¬
- return to file fName
- close file fName
- getCat line 1 of card field "CtrlStack"
- end UpdateAliasFile
-
- on doLinkTo
- global gCPathName, gCAliasName, gCHostName, gCPort, gCServerSel, gCItemType
- lock screen
- show card field "TableCloth"
- show card field "FakeDlg"
- show card field "DoWhat"
- show card field "too"
- if word 1 of gCAliasName is empty then
- put tail(gCPathName) into card field "LNameLabel"
- else
- put gCAliasName into card field "LNameLabel"
- end if
- show card field "LNameLabel"
- put gCHostName into card field "DlgHostName"
- show card field "DlgHostName"
- if gCHostName is not empty then --it is probably a real link
- put gCPort into card field "LPort"
- end if
- -- if gCPort = 70 then
- -- put empty into card field "LPort"
- -- else
- -- put gCPort into card field "LPort"
- -- end if
- show card field "LPort"
- if gCServerSel <> "Γêæ" then
- put gCServerSel into card field "LServerSel"
- else
- put empty into card field "LServerSel"
- end if
- show card field "LServerSel"
- put gCItemType into card field "LExplicitType"
- show card field "LExplicitType"
- show btn "Link"
- show btn "Clear"
- show btn "Cancel"
- show btn "Help"
- show btn "HelpB"
- unlock screen
- end doLinkTo
-
- on doClearLink linkLine
- global gCAliasName, gCHostName, gCPort, gCServerSel, gCItemType, gSelector
- answer "Clear the currently existing link for item " & quote &¬
- gCAliasName & quote & "?" with "Clear" or "Cancel"
- if it is "Clear" then
- put empty into gCHostName
- put empty into gCPort
- put empty into gCServerSel
- put empty into gCItemType
- updateAliasFile line linkL